home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / VSCREEN.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-28  |  3.9 KB  |  129 lines
  1. DEFINITION MODULE VScreen;
  2.  
  3. (*
  4. VDI Escape Functions for Screens.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM PORTAB IMPORT UNSIGNEDWORD,ANYWORD;
  12. FROM VDI    IMPORT XY;
  13.  
  14. (* [V]DI: [Q]uery Addressable Alpha [Ch]aracter [Cells] ********************)
  15.  
  16. PROCEDURE VQChCells(    Handle : UNSIGNEDWORD;
  17.                     VAR Rows   : UNSIGNEDWORD;
  18.                     VAR Columns: UNSIGNEDWORD);
  19.  
  20. (* [V]DI: [Exit] Alpha [Cur]sor Mode ***************************************)
  21.  
  22. PROCEDURE VExitCur(Handle: UNSIGNEDWORD);
  23.  
  24. (* [V]DI: [Enter] Alpha [Cur]sor Mode **************************************)
  25.  
  26. PROCEDURE VEnterCur(Handle: UNSIGNEDWORD);
  27.  
  28. (* [V]DI: Alpha [Cur]sor [Up] **********************************************)
  29.  
  30. PROCEDURE VCurUp(Handle: UNSIGNEDWORD);
  31.  
  32. (* [V]DI: Alpha [Cur]sor [Down] ********************************************)
  33.  
  34. PROCEDURE VCurDown(Handle: UNSIGNEDWORD);
  35.  
  36. (* [V]DI: Alpha [Cur]sor [Right] *******************************************)
  37.  
  38. PROCEDURE VCurRight(Handle: UNSIGNEDWORD);
  39.  
  40. (* [V]DI: Alpha [Cur] [Left] ***********************************************)
  41.  
  42. PROCEDURE VCurLeft(Handle: UNSIGNEDWORD);
  43.  
  44. (* [V]DI: [Home] Alpha [Cur]sor ********************************************)
  45.  
  46. PROCEDURE VCurHome(Handle: UNSIGNEDWORD);
  47.  
  48. (* [V]DI: [E]rase To [E]nd [O]f Alpha [S]creen *****************************)
  49.  
  50. PROCEDURE VEEOS(Handle: UNSIGNEDWORD);
  51.  
  52. (* [V]DI: [E]rase To [E]nd [O]f Alpha Text [L]ine **************************)
  53.  
  54. PROCEDURE VEEOL(Handle: UNSIGNEDWORD);
  55.  
  56. (* [V]DI: Direct Alpha [Cur]sor [Address] **********************************)
  57.  
  58. PROCEDURE VCurAddress(Handle: UNSIGNEDWORD;
  59.                       Row   : UNSIGNEDWORD;
  60.                       Column: UNSIGNEDWORD);
  61.  
  62. (* [V]DI: Output [Cur]sor Addressable Alpha [Text] *************************)
  63.  
  64. PROCEDURE VCurText(    Handle: UNSIGNEDWORD;
  65.                    VAR String: ARRAY OF CHAR);
  66.  
  67. (* [V]DI: [R]e[v]erse Video [On] *******************************************)
  68.  
  69. PROCEDURE VRvOn(Handle: UNSIGNEDWORD);
  70.  
  71. (* [V]DI: [R]e[v]erse Video [Off] ******************************************)
  72.  
  73. PROCEDURE VRvOff(Handle: UNSIGNEDWORD);
  74.  
  75. (* [V]DI: [Q]uery Current Alpha [Cur]sor [Address] *************************)
  76.  
  77. PROCEDURE VQCurAddress(    Handle: UNSIGNEDWORD;
  78.                        VAR Row   : UNSIGNEDWORD;
  79.                        VAR Column: UNSIGNEDWORD);
  80.  
  81. (* [V]DI: [Q]uery [Tab]let [Status] ****************************************)
  82.  
  83. PROCEDURE VQTabStatus(Handle: UNSIGNEDWORD): BOOLEAN;
  84.  
  85. (* [V]DI: [Hard] [Copy] ****************************************************)
  86.  
  87. PROCEDURE VHardCopy(Handle: UNSIGNEDWORD);
  88.  
  89. (* [V]DI: [D]i[sp]lay Graphic [Cur]sor At Location *************************)
  90.  
  91. PROCEDURE VDspCur(Handle: UNSIGNEDWORD;
  92.                   X     : XY;
  93.                   Y     : XY);
  94.  
  95. (* [V]DI: [R]e[m]ove Last Graphic [Cur]sor *********************************)
  96.  
  97. PROCEDURE VRmCur(Handle: UNSIGNEDWORD);
  98.  
  99. (* [V]DI: [S]elect [Palette] ***********************************************)
  100.  
  101. PROCEDURE VSPalette(Handle : UNSIGNEDWORD;
  102.                     Palette: UNSIGNEDWORD): UNSIGNEDWORD;
  103.  
  104. (* [V]DI: Generate Specified [Sound] ***************************************)
  105.  
  106. PROCEDURE VSound(Handle   : UNSIGNEDWORD;
  107.                  Frequency: UNSIGNEDWORD;
  108.                  Duration : UNSIGNEDWORD);
  109.  
  110. (* [V]DI: [S]et Tone [Mute] ************************************************)
  111.  
  112. TYPE MutingFlags = (Return,Enable,Disable);
  113.  
  114. PROCEDURE VSMute(Handle: UNSIGNEDWORD;
  115.                  Action: MutingFlags): BOOLEAN;
  116.  
  117. (* [V]DI: [S]et Line [Offset] **********************************************)
  118.  
  119. PROCEDURE VOffset(Handle: UNSIGNEDWORD;
  120.                   Offset: UNSIGNEDWORD);
  121.  
  122. (* [V]DI: [Init] System [Font] *********************************************)
  123.  
  124. PROCEDURE VFontInit(Handle  : UNSIGNEDWORD;
  125.                     FontHigh: ANYWORD;
  126.                     FontLow : ANYWORD);
  127.  
  128. END VScreen.
  129.